(mac-ts-unicode-for-key-event): Check if text is available.

diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index 51274e6f5be58ee176e08442c8f2752a00c90546..6370b40d3675a7cc9684b8ac54b73297a444c64d 100644 (file)
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -2104,7 +2104,8 @@ either in the current buffer or in the echo area."
         (coding (or (cdr (assq (car script-language)
                                mac-script-code-coding-systems))
                     'mac-roman)))
-    (mac-unread-string (mac-utxt-to-string text coding))))
+    (if text
+       (mac-unread-string (mac-utxt-to-string text coding)))))
 
 ;; kEventClassTextInput/kEventTextInputUpdateActiveInputArea
 (define-key mac-apple-event-map [text-input update-active-input-area]